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Renewing Subscriptions 


The 4-digit number in the upper right corner of your mailing label. 
is the expiration date of your subscription. The first two digits 
are the year, and the last two digits are the month of the last 
issue you have paid for. If your label says "8109" or "8110", now 
is the time to renew to be sure of uninterrupted service. 


We now have about 500 subscribers, and are shooting for 1000 by 
the end of the year. (Look for my full page ad in the next 
NIBBLE.) I am printing 1000 copies of each issue so there will be 
plenty of back issues for latecomers. 


Notice that I have a new address. The old one will still work for 
a while, but you should start using the new one: Bob 
Sander-Cederlof, S-C Software, P. O. Box 280300, Dallas, TX 75228. 


Things For Sale 


Here is an up-to-date list of some of the things which I have that 
you might need: 


Quarterly Disk #1 (source code from Oct 80 - Dec 80)...$15.00 
Quarterly Disk #2 (source code from Jan 81 - Mar 81)...$15.00 
Quarterly Disk #3 (source code from Apr 81 - Jun 81)...$15.00 
S-C ASSEMBLER II Version BO ew eee ele Werle oie ne 6h Se OS ODDS UU 
Beneath Apple DOS (DOOK) aii: 556 eo os 06S Ee een eewes< 9 16.00 
Apple Machine Language (bDOOK) ..ccccccccccccccccccccccce Sl 1.65 
Blank Diskettes (Verbatim, with hub rings, no labels, 

plain white jackets, in cellophane 

WLAPPEL) .ecccccccccccesee 20 disks for $50.00 
Zip-Lock Bags (2-mil, 6"x9").....ceccecseeeel00 bags for $8.50 


If you are interested in getting a regular monthly shipment of 100 
Or more disks, we can work out an even lower price. 


If you are in Texas, remember to send 5% sales tax on books, 
disks, or bags. 


Finding Applesoft Line NumberS....cwcccccccccccccceeeee BOD Potts 


Sometimes I have needed to know where in memory a certain 
Applesoft line is located. Maybe I want to patch in a code which 
cannot be typed from the keyboard. Or maybe the program has been 
"compressed and optimized", so that the lines are too long to 
edit. Or maybe I am just curious, 


It is simple enough, because the line number is stored in binary 
at the beginning of each line. I would looke at locations $67,68 
to get the address of the first line. Then look at that location 
to get the address of the next line, and so on. Each line is 
stored in memory with the first two bytes telling where to find 
the next line. and the third and fourth bytes giving the line 
number. Of course, the line number is in binary, and the bytes 
are backward, and the whole screen is full of hex numbers making 
it very hard to keep everything straight.... 


There has to be an easier way! Working with Bob Sander-Cederlof 
last week, I came up with this simple little program which will 
print the address of any line in hex. It uses the ampersand (&) 
statement of Applesoft. You simply BRUN this program, which I 
call AMPERFIND, and then type an ampersand and the line number. 
BRUNning sets up the ampersand vector at $3F5-3F7 and returhs. 


Here is the program. Note that it takes more code to set up the 
ampersand vector than it takes to do the line number search! 
Lines 1210-1260 could be put anywhere in memory, just so $3F6 and 
S$3F7 are made to point to that place. 


[Bob Potts is an Assistant Vice President at the Bank of 
Louisville in Kentucky. this bank has 115 Apple IIs in use doing 
a variety of banking functions. ] 


1000 * 
1010 * FIND AN APPLESOFT LINE NUMBER 
1020 . AND PRINT ADDRESS IN HEX 
1040 -OR $300 
1098 “ TF AMPERF IND 
Be OR TRE Ee ST AL oo 
D61A- +030 AS. FNDLIN ‘ JA’ FIND LINE IN APPLESOFT PROGRAM 
ae : SET UP AMPERSAND VECTOR 
AY 4C 1130 LDA sae "JMP* OPCODE 
0302- 8D FS 03 1140 STA $3F5 
Q305- A9 10 1150 LDA #AMPERFIND 
0307- 8D F6 03 1160 STA $3F6. 
O30A- AY 03 1170 LDA /AMPERF 
030C- 8D F7 03 1180 STA $3F7 
030F- 60 1190 
1390 AMP ERF IND 
0310- 20 OC DA 1220 JSR AS.LINGET CONVERT LINE NUMBER TO BINARY 
0313- 20 1A D6 1230 JSR AS.FNDLIN FIND THE LINE 
0316- A6 9B 1240 LDX te 
0318- A5 9C 1250 LDA $9C GET THE LINE'S ADDRESS 
O31A- 4C 41 F9 1260 JMP MON.PRNTAX PRINT THE ADDRESS IN HEX 
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Binary Keyboard Input 


David Holladay, from Madison, Wisconsin, wrote a recent article 
for the Adam & Eve Apple II Users Group about a technique he uses 
for turning the Apple keyboard into a Braille input device. He 
chose 6 keys which can be “simultaneously” depressed to give a 
composite code. The keys form a 2-by-3 rectangle, like the dots 
of Braille characters. 


Because the Apple keyboard has N-key rollover, simultaneous 
depression of several keys results in each keycode being sent to 
the program one at a time. The order that the codes are produced 
appears random to the program. Some quirks in the way the Apple 
keyboard is wired up prevent the N-key rollover from working with 
every combination of keys. Some of them OR together to create a 
ghost code, different from the actual depressed keys. Apple has 
used many different keyboards, so the keys which can be used for 
David's program vary considerably from one Apple to another, 


After playing around with his program for a while, I got 
interested in making a Binary Input Keyboard, rather than a 
Braille one. My keyboard, which is almost 4 years old (Apple 
serial # 219!), allows me to press any combination of the keys J, 
K, L, 1, 2, 3, and 4. I set up these keys with binary weights of. 
hex 40, 20, 10, 08, 04, 02, and Ol respectively. 


When you type a combination of these seven keys all at once, the 
time interval between keys is much shorter than the normal spacing 
between keystrokes. The program waits for one keyboard strobe, 
and then initiates a timeout loop. All keycodes received within 
the timeout window will be considered to have been struck 
"simultaneously". Each keycode is compared with the list of seven 
keys (JKL1234), and the appropriate binary weight ORed into the 
character. If a keycode is received which is not in the legal 
Character list, the bell rings. 


I made a test loop which calls the input routine, and displays the 
hex code on the screen. 


The choice of keys (JKL1234) works fine on my Apple, but it may 
not work on yours. Experiment with various choices until you find 
seven keys which will work together on your keyboard. Then modify 
line 1420 with your list of keys, and it will be ready to go. 


Possible applications? Maybe fast input of hexadecimal machine 
language programs. You would have to add one more key so that all 
eight bits could be specified. And you would have to train your 
mind and fingers to instantaneously translate from hex to binary 
finger-patterns. Or, maybe some sort of a game. The basic idea 
of reading simultaneous keystrokes could effectively create new 
keys. Or, maybe the basic idea of simultaneous keystrokes could 
be used for entering secret passwords, 
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1000 * 
1010 * BINARY KEYBOARD 
1020 * —_—— 
24- 1030 MON.CH, 24 
0025- 1040 MON.CV. iy 25 
C000- 1050 KEYBOARD . 000 
C010- 060 STROBE. 010 
FC24- 1070 MON.VTAB . 24 
FC58- 1080 MON.HOME . 58 
FBE2- 1090 MON.BELL . 2 
- 1109 MON.PRBYTE .E0) SFDDA 
Q800- A9 00 _—- 1120 GETCHR LDA 40 
0802- 8D 51 08 1130 .1 
O805- A9 FO-—s««i+i4 LDA 4-16 
0807— 8D 52 08 1150 STA CNIR 
O80A- 8D 53 08 1160 STA CNIR+1 
O80D- AD 00 CO 1170 .2 K 
0810- 30 1 1180 BMI .4 SOMETHING TYPED 
0812- EE 52 08 1190 INC CNIR 
O0815- DO F6 «1200 32 
0817- EE 53 08 1210 INC CNIR+] 
O81A- DO Fl —s«—: 1220 BNE .2 
O81C- AD 51 08 1230 LDA CHARCODE GET COMPOSITE CODE 
O81F- FO DF 1240 BEQ GETCHR NO KEYS HIT YET 
0821- 60 1250 3 
0822- 8D 10 CO 1270 .4 STA STROBE CLEAR KEYBOARD STROBE 
0825- 29 7F 1280 AND i 
0827- C9 20 =—s_:« 1290 CMP #820 HANDLE BLANK SEPARATELY 
0829- FO F6 1300 BEQ 
082B- AO 06 _—- 1310 46 SEARCH LIST OF LEGAL KEYS 
082D- D9 43 08 1320 5 CMP LEGAL.KEYS,Y 
0830- FO 0 133 6 
0832- 88 1340 D 
0833- 10 F8 _—-1350 BPL .5 
0835- 20 E2 FB 1360 JSR MON.BELL 
0838- 4C 00 08 1370 JMP GETCHR 
083B- BS 4A 08 1380 .6 LDA KEY.BITS,Y 
083E- OD 51 08 1390 ORA CHARCODE 
0841- DO BF 1400 BNE wl »« eALWAYS 
1410 * 
0843- 4A 4B 4C 
0846- 31 32 33 
0849- 34 1420 LEGAL.KEYS .AS /JKL1234/ 
O84A- 40 20 10 
084D- 08 04 02 
0850- 01 143 KEY.BITS HS 40201008040201 
0851- 1450 CHARCODE .BS 1 
0852- 1460 CNTR -BS 2 
1480 : TEST BINARY KEYBOARD 
0854- 20 58 FC 1500 TEST JSR MON.HOME 
0857- 20 00 08 1510 .1 JSR GETCHR 
O85A- 8D 03 04 1520 STA 7403 LINE 1, COLUMN 4 OF SCREEN 
O085D- A9 00 ~—- 1530 LDA #0 
O85F- 85 24 1540 STA MON.CH 
0861- 85 25 1550 STA : 
0863- 20 24 FC 1560 JSR 
0866- AD 03 04 1570 LDA $403 
0869- 20 DA FD 1580 JSR MON. PRBYTE 
O8s6c- 4C 57 08 1590 JMP . 
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Decision 
Decision Systems 


GS P.O. Box 13006 
ystems Denton, TX 76203 
817/382-6353 


DIS-ASSEMBLER 


DSA-DS dis-assembles Apple machine language programs into forms 
compatible with LISA, S-C ASSEMBLER (3.2 or 4.0), Apple's TOOL- 
KIT ASSEMBLER and others. DSA-DS dis-assembles instructions or 
data. Labels are generated for referenced locations within the 
machine language program. 

$25, Disk, Applesoft (32K, ROM or Language card) 


OTHER PRODUCTS 


ISAM-DS is an integrated set of Applesoft routines that gives indexed file capabilities 
to your BASIC programs. Retrieve by key, partial key or sequentially. Space from 
deleted records is automatically reused. Capabilities and performance that match 
products costing twice as much. 

$50 Disk, Applesoft. 


PBASIC-DS is a sophisticated preprocessor for structured BASIC. Use advanced 
logic constructs such as IF...ELSE..., CASE, SELECT, and many more. Develop 
programs for Integer or Applesoft. Enjoy the power of structured logic at a fraction of 
the cost of PASCAL. 

$36. Disk, Applesoft (48K, ROM or Language Card). 


FORN-DS is a complete system for the definition of input and output froms. FORM- 
DS supplies the automatic checking of numeric input for acceptable range of values, 
automatic formatting of numeric output, and many more features. 

$25 Disk, Applesoft (32K, ROM or Language Card). 


UTIL-DS is a set of routines for use with Applesoft to format numeric output, selec- 
tively clear variables (Applesoft’s CLEAR gets everything), improve error handling, 
and interface machine language with Applesoft programs. Includes a special load 
routine for placing machine language routines underneath Applesoft programs. 

$25 Disk, Applesoft. 


SPEED-DS is a routine to modify the statement linkage in an Applesoft program to 
speed its execution. Improvements of 5-20% are common. As a bonus, SPEED-DS 
includes machine language routines to speed string handling and reduce the need for 
garbage clean-up. Author: Lee Meador. 

$15 Disk, Applesoft (32K, ROM or Language Card). 


(Add $4.00 for Foreign Mail) 


“Apple ll is a registered trademark of the Apple Computer Co. 


Apple Assembly Line....August, 1981....Copyright (C) S-C SOFTWARE....Page 5 


Apple Machine Language -- A Review 


Many of you have asked me, "What book will help me, an absolute 
beginner, learn 6502 machine language? I don't know what these 
other books are talking about!" 


If these are your words, then the book “Apple Machine Language", 
by Don and Kurt Inman, is for you. It is published by Reston 
Publishing Company, in both hardback ($17.95) and paperback 
($12.95). The book has 296 pages, is set in clear, easy-to-read 
type, and has lots of good diagrams and illustrations. 


The authors assume that you are at least familiar with Applesoft 
Basic. Chapter 1 gives a brief review of Applesoft, with special 
emphasis on the PEEK, POKE, and CALL statements. (These are the 
statements you will be using to communicate between Basic and 
machine language programs.) The authors also assume that you have 
your own Apple, and that you will not just READ the book. They 
expect you to follow along every example with your own Apple, so 
you can EXPERIENCE the material. You will not only learn a lot 
faster, but it will stick with you and you will UNDERSTAND what is 
going on. 


Chapter 2 takes you across the bridge from Basic to machine 
language, very gently. You develop, with the authors, a little 
Applesoft program which helps you enter and test machine language 
programs. 


Chapter 3 finally introduces the ideas of binary numbers, 
hexadecimal, the A-register in the 6502, and a few instruction 
codes. You will learn how to load a value into the A-register, 
modify that value, and store the result back into memory. 


There are exercises at the end of each chapter which review the 
material covered. Don't let that worry you, though...they also 
printed the answers! 


Chapter 4 starts to get interesting and useful. You learn how to 
use machine language to put some simple color graphics on the 
Apple screen. You can plot individual points, draw rectangles, 
and color them in. All the while, you are learning more machine 
instructions, more registers, more about memory addressing, and so 
forth, 


Chapter 5 introduces you to writing text on the screen. You learn 
how to call some of the monitor subroutines for text output, how 
to print characters at particular screen locations, and how to 
write messages of your choice. Some new instructions are covered, 
and you learn some new address modes. In particular, you learn 
all about relative branching. 


Chapter 6 is one of my favorites. I have always enjoyed twiddling 
Apple's little built-in speaker, and this chapter shows you how. 
You build and play with a tone generator program, even to the 
point of tuning it up to make a simulated piano keyboard. 
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Chapter 7 takes you deeper into sound and graphics, helping you 
code a routine to display the notes as you play them from the 
keyboard. By the time you finish this chapter you will understand 
how to use 28 of the 6502's 56 instructions, and 8 of its 13 
addressing modes. You will also have used 9 of the subroutines 
found inside the Apple Monitor ROM. 


Chapter 8 takes you inside Apple's Monitor...just a little. Until 
now, you have been using the Applesoft program developed in 
chapter 2 to enter and test all your machine language programs, 

In chapter 8 you learn how to do it from the monitor. You will 
also learn how to do addition and subtraction. 


Chapter 9 show you how to add numbers too big to fit in one byte. 
Since one byte will only hold numbers between 0 and 255, or 
between -128 and +127, you can see that most numbers ARE too big 
to fit in one byte. You will also learn all about the way 
negative numbers are handled in the 6502. 


Chapter 10 delves deeper into the Apple Monitor, and explores 6502 
decimal mode arithmetic, 


Chapter 11 is only for those fortunate readers who have Integer 
BASIC in their Apples. It doesn't matter whether Integer BASIC is 
on the Apple Monitor board, on a firmware card in ROM, or ina 16K 
RAM card...just so you have it. Why? Because there is another 
program in there you might not even be aware of: the Apple 
Mini-Assembler. If you are lucky enough to have it, chapter 1l 
will tell you how to use it. If not, skipover this chapter and 
use your S-C ASSEMBLER II instead! On second thought, don't skip 
chapter ll entirely. It is here that indirect addressing is 
covered, and you need to know this material. 


Chapter 12, “Putting It All Together", puts it all together. The 
programming experience you work through is a multiplication 
subroutine, 


There are four appendices which summarize the information about 
the Apple hardware found throughout the book. Several of the 
charts in Appendix-A list page number references. (Early editions 
of the book had blank columns where the page numbers were supposed 
to be, but that has been corrected.) And finally, there is a 
regular alphabetic index. 


By the time you finish this book, you have a solid foundation for 
learning to use an assembler like the S-C ASSEMBLER II. I would 
like to think that my assembler is easy enough to learn that books 
like this one would not be needed, but there are a lot of concepts 
that are completely foreign to new computer owners. 


I want to do all I can to help every one of you become proficient 
in assembly language, so I am making “Apple Machine Language” 
available to you at a discount. You can buy the $12.95 paperback 
edition from me for $11.65 (plus 58 cents tax if you are in 
Texas). Include a dollar for shipping, so I don't go broke. 
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Paid Advertisement 


JOHN'S BOOT 
FOR THE S-C ASSEMBLER 4.0 


BY 
JOHN BRODERICK, CPA 


I am working of an assembly language 
account system having more than 20 
SOURCE CODE PROGRAMS (each one 
500-700 lines of code). 


The trick is to be able to boot any 


one of the 20 disks without. 


disturbing hex memory from 2500 to 


JOHN’S DEBUGGER 
& DISASSEMBLER 


ree 
ASSEMBLY LANGUAGE PROCRAMMING 
ou vac APPLE Jf computer 


wow vou can FRACE on STEP anv 6502 twstRUCTION 
LOCATED ANYWHERE 1% MEMORY 


BEGIN DEBUGGING FAOM ANY POINT within your PRoGRae 
COMPUTES EFFECTIVE ADDRESS FOR ALL ADORESSING MODES 
& DISPLAYS ALL MEKORY CHANGES (BEFORE/AFTER) 
phi to saben move thru your program- pl ted 
equal zero, leave subroutine. 
TRACE Toeie W/ INSTRUCTION - ROTIRG ALL rots ish, etc 


STEP cach imstaUCTion OLSPLAVING: 
NTER — -ACCUMULATOR [6 Binary 


OPTIONS CAN BE USED Im ANY ORDER: STEP, CONT] au0U 
ORE PAGE, SINGLE LIME, MONITOR EXIT & Re TURK 10 PROCESSING 


BREAKPOINT asacac om KcVPRESS, CYCLE COUNTER ETC 


9600. I do this with my boot program 

which front-ends the S-C Assembler tect OF tag ABOVE SANES, Te ENTIAL PaaE OF Twe STAGE) 
4.0. It loads the SOURCE CODE into aE EE PR Se CIENT I 
the LANGUAGE CARD, 


J0ver SOF $4 
MEVER BEFORE AELEASED OISASSEMBLER IS os BL SO AVAILABLE 
GOTH ON DISKETTE for $ 59. 


BROOE RICE 


Jon . CPA 

This method also allows me _ to mes aie 
overide the memory protect error 

when modifing DOS, since HIMEM is 
set to F800, instead of 9600. It 
also sets up 1000 to I1FFF as a 
workarea since I move the assembler 
into bank #2 of the language card. 
Here is how it works. 


YOU TURN THE COMPUTER POWER ON & IT AUTOMATICALLY: 
l. Moves ROM from F800-FFFF into lang card F800-FFFF. 
and sets it so you can now press reset with the card open. 
2. loads S-C Assembler into memory (a normal load) 
3. Sets HIMEM: F800. 
4. Loads your SOURCE PROGRAM into lang card (D000-F 800). 
5. Lists the first 10 lines of your SOURCE PROGRAM. 


THAT'S JUST FOR STARTERS -=- NOW LOOK: 


You press ASM to assemble , and then USR to execute your code: 
1. Sets up a CTRL-Y return. 
2. Moves S-C Assembler from 1000-l1FFF into lang card - bank #2. 


3. Zeros 1000-1FFF so you can use aS a workarea. 
4. Locks lang card to protect SOURCE CODE during execution. 
5. Does a jmp (S$FFE) jumps to first instruction to execute. 


Everything is now up in the lang card with the exception of S-C 
Assembler code 2000-24FF and John's Boot at F0Q. All other memory 
from 800 to 9600 is usable by your programs. 


That's 34,816 bytes of code you can use. Booting another disk 
leaves hex memory $2500-9600 completely undisturbed because boot 
will load the SOURCE CODE into the LANGUAGE CARD. 


JOHN*’S BOOT FOR THE S-C ASSEMBLER 4.0 is FREE when you purchase 
JOHN'S DEBUGGER AND DISASSEMBLER, otherwise it is $24.95. My 
address is shown inside the head above. That is not my head--!I 


still have some hair left. Paid Advertisement 
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Two Ways to Compare a Byte...cccccrccccvcssccceesee es LEC Meador 


I have noticed two ways to compare a byte used inside DOS and 
other Apple software. In the cases I am thinking of, the 
following code required the Y-register to be zero. The first way 
I have seen is straightforward: 


LDA .e- BYTE TO BE TESTED 

CMP #$19 VALUE WE WANT TO TEST FOR 
BNE .1 ALSO AFFECTS CARRY STATUS 
LDY #0 IF =, CARRY SET 


The other way is a little trickier, but it saves one byte: 


LDA ... BYTE TO BE TESTED 

EOR #$19 VALUE WE WANT TO TEST FOR 
BNE .1 DOESN'T AFFECT CARRY STATUS 
TAY A AND Y BOTH ZERO 


This may help you understand some of those disassemblies you are 
making, or help you save a byte here and there. 


Time II 


The most powerful, easiest to use, clock for your APPLE 


e TIME [N HOURS, MINUTES AND SECONDS. 

° DATE WITH YEAR, MONTH, DATE, DAY OF WEEK AND 
LEAP YEAR. 
° FAST DATE AND TIME SETTING. 

* PROGRAM SELECTABLE 24 HOUR MILITARY FORMAT 
OR 12 HOUR WITH AM/PM FORMAT. 

* + 30 SECOND ADWST. 
eOIP SWITCH SELECTABLE INTERRUPTS ager hl 
FOREGROUND/GACKGROUND OPERATION OF TW 
PROGRAMS SIMUL TAREQUSLY SO YOU CAN CALL UP 
SCHEDULES, THAE EVENTS, DATE LUSTINGS, AND 


DIMER PROTOUTS: 8 16 SECTOR cere oan 28 CON 
1 
« CRYSTAL CONTROLLED FOR .0005% ACCURACY. : ares PRODRKiE SO VOU'C LA PUT YOUR TEI G 
*LATCHED INPUT AND OUTPUT PORTS FOR THE TO USE RIGHT AWAY. 
EASIEST PROGRAMMING IN BASIC. 
¢ ON BOARD BATTERY BACKUP POWER FOR OVER 4 © TWENTY-THREE PAGE OPERATING MANUAL 
MONTHS POWER OFF OPERATION (BATTERY INCLUGED, WITH MANY EXAMPLES OF PROGRAMS TO 
CHARGES WHEN APPLE 16 On). USE WITH YOUR APPLE IN ANY CONFIGURATION. 
ALL ORDERS SHIPPED SAME BAY MASTER CHARGE & VISA WELCOME 
SEND $120.00 CHECK OR MONEY ORDER : 
(TEXAS RESWENTS ADB 5% SALES TAX) ce 
(214) 492-2027 . ; 


APPLIED ENGINEERING 
P.O. BOX 470301 
DALLAS, TEXAS 75247 


7:00 AM - 11:00 PM 7 DAYS A WEEK 
APPLE PERIPHERALS ARE OUR ONLY BUSINESS 


? 
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A Selective Catalog from FID... cece cvceccvvceveseseee- Lee Meador 


If you have DOS 3.3, you have no doubt enjoyed using the FID 
program to copy files from one disk to another. The wildcard 
feature in filenames is especially nice, because it lets you set 
up a semi-automatic copy of a whole set of files, or even the 
whole disk. 


Sometimes I am reluctant to let the wildcard name go through 
without prompting, because there might be a file or two I don't 
want copied which matches the specified name. However, there are 
so many files involved that I really don't want to sit there and 
type "Y" for every one of them. What we need is a “selective 
catalog" command -- a FID command to list all files names which 
match the wildcarded-name, 


Here are some easy patches which you can apply to FID which will 
convert the VERIFY command to just what we want. 


]BLOAD FID load FID 

JCALL -151 get to Apple's monitor 
*DBE: 60 return before verifying 
*C10:EA EA EA no double spacing 

*3D0G return to BASIC 

]BSAVE FID/CATALOG ,A$803,L$124E save the new version 


Now if you BRUN FID/CATALOG you will see the normal FID menu. 
Select option 8 (VERIFY), specify a slot and drive, and type a 
file name (preferably with the "=" wildcard in it). Specify NO 
prompting. When you “PRESS ANY OTHER KEY TO BEGIN" you will see a 
list of all files whose names match the filename you typed. 


APPLE 8-BIT 8-CHANNEL A/D SYSTEM 


> 8-BIT RESOLUTION » ELIMINATES NEED TO WAIT FOR A/D CON- 
VERSION 


Pec iatentAs tilled > AID PROCESS TOTALLY TRANSPARENT 
(Just peek at data) TO APPLE. 


>» FAST CONVERSION - > FULL SCALE INPUTS CAN EASILY BE 
(.078 ms per channel). CHANGED BY USER. 


APPLIED ENGINEERING’S A/D board is a breakthrough product for all APPLE owners 
giving real world data at a really affordable price. Diverse applications include monitoring 


WIND SPEED...... WIND DIRECTION .... 
RPM SOIL MOISTURE 


CONTRIBUTED PROGRAMS ARE DISTRIBUTED FREE TO ALL A/D OWNERS IN OUR NEWSLETTER. 


MASTER CHARGE & VISA WELCOME 
See your dealer or contact - ai 


APPLIED ENGINEERING 


at (214) 492-2027 (oe) 
P.O. BOX 470301 se 7:00 AM - 11:00 PM 7 DAYS A WEEK 


DALLAS, TEXAS 75247 APPLE PERIPHERALS ARE OUR ONLY BUSINESS 
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Random Number Generator from Integer BASIC 


When you are writing games or other simulation exercises, you 
frequently need a source of random numbers. In Basic it's easy, 
but how about assembly language? 


The WozPak from Call A.P.P.L.E. has directions for calling the 
RND(X) function in the Integer BASIC ROMS. Remember that this 
function returns a random integer between 0 and X-1 for an 
argument X. Linda Egan, from Maywood, California, wrote that she 
had trouble making the WozPak method work. I don't know what that 
method was, but I looked up the code in the ROM and came up with 
some working code. 


1000 * 
1050 id RANDOM FUNCTION 
1050 * CALLS SUBROUTINE IN INTEGER BASIC ROM TO GET 
oh A RANDOM NUMBER BETWEEN 0 ANT X-1 
168 . CALL: VALUE X IN Y- AND A-REGISTERS 
1070 * JSR 
1080 * RETURN: RANDOM NUMBER IN Y- AND A-REGISTERS 
430 . LO-BYTE IN Y, HI-BYTE INA 

OOCE- 1110 IB.ARG ° ney 

0050- 1120 IB.LOSTACK . 90 THRU ser 

OOA0- 130 IB.HISTACK ° 0 THRU 

EF51- 1150 IB.RANDOM.. Sl 

FDDA- 1160 MON.PRBYTE . DA 

FDED- 1140 MON .COUT ° ED 

Q800- A2 20 1190 RANDOM LDX A I/B NOUN-STACK POINTER 

0802- 85 CF 1200 STA IB.ARGt] 

04- 84 CE 1210 STY IB.ARG 

0806- AO 00 1320 LDY #0 FLAG VALUE ON STACK 

O808- 20 51 EF 12 JSR IB.RANDOM 

O080B- B5 AQ 124 LDA IB.HISTACK ,X 

O80D- B4 50 1250 LDY IB.LOSTACK ,X 

O80F- 60 1260 RTS 
1280 TEST .RANDON 

0810- AS AO 1390 LDA #160 

0812- 8D 2E 08 1300 

0815- AO E8 1310 .1 LDY #1000 

0817- AS 03 1320 LDA /1000 

0819- 20 00 08 1330 J RND (1000) 

081C- ra DA FD 1340 JSR MON. 


8 
5 
3 
y 
ee 


0823- AO 1370 PRINT BLANK 
0825- 20 ED FD 1380 JSR ° 

0828- 2E 08 1390 

082B- E8 1400 BNE .1 

082D- 60 1410 


Lines 1190-1260 are all you need. They set up a oall to the ROM 
code, and pick up the returned value. 
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Line 1190 sets the X-register to $20. The ROM code uses X for a 
stack index, and $20 means an empty stack. This is not the 
hardware stack ($100-l1FF), but a software-implemented stack. The 
stack is in three parts. The part I call IB.LOSTACK runs from $50 
thru $6F. IB.HISTACK runs from $A0 thru SBF. A third part runs 
from $78 thru $97. The ROM code pushes our argument on these 
stacks like this: the low byte goes on LOSTACK, the high byte on 
HISTACK, and a zero (from the Y-register) on the FLAGSTACK. (If 
the value pushed on FLAGSTACK was not zero, it would be used as 
the high-byte of an address along with the low-byte from LOSTACK 
to indirectly address the data value.) 


Lines 1200 and 1210 store our argument where the ROM code expects 
it to be, in SCE and SCF. Lines 1240 and 1250 retrieve the 
resulting random number from the stack. 


Lines 1280 through 1420 are a test loop to demonstrate the random 
function. Twenty lines of eight random numbers each are printed 
on the screen in hexadecimal. I used an argument of 1000, so all 
the numbers are between 0 and 999, 


What if you don't have the Integer BASIC ROMs in your Apple? 
Since the code is not very long, you could make your own copy of 
Woz's routines. I did that, and came up with the following 
program. I used the same test loop, but this time it is in lines 
1760 thru 1900. 


DISASM (2.1) - Am Iwtercicent 2-Pass Disassempter For tHe APPLE 11 anp APPLE II Pius 
1S AN INVALUABLE AID FOR UNDERSTANDING AND MODIFYING MACHINE LANGUAGE PROGRAMS 


NE Wl MULTIPLE FORMATTED DATA/ADDRESS TABLES MAY BE INTERMIXED WITH INSTRUCTIONS 


Pius ALL THE STANDARD FEATURES 


@ SELECTABLE OUTPUT FORMATS ARE DIRECTLY COMPATABLE with DOS TOOLKIT, LISA ann S-C (4.0) Assempiers 
e NO RESTRICTION ON DISASSEMBLED BLOCK LENGTH (OTHER THAN RAM on ASSEMBLER LIMITATIONS) 


@ CORRECTLY DISASSEMBLES DISPLACED OBJECT CODE (THE PROSRAM BEING DISASSEMBLED DOESN'T HAV 
RESIDE IN THE MEMORY SPACE IN WHICH IT EXECUTES). ig 


@ USER DEFINED LABEL NAME TABLE REPLACES ARBITRARY LABEL ASSIGNMENTS (EXTERNAL, PAGE ZERO AND EVEN 
INTERNAL LABELS BECOME MORE MEANINGFUL, E.G. JSR CROUT, LDA WNDTOP - USE OF TABLE is OPTIONAL) 


@ MONITOR ROM LABEL NAME TABLE iS INCLUDED WITH OVER 100 OF THE MOST COMMONLY USED SUBROUTINE 
LABELS (LABEL TABLE SOURCE ALSO PROVIDED SO YOU CAN EXTEND AND CUSTOMIZE IT TO YOU OWN NEEDS) 


© 100% MACHINE LANGUAGE FOR FAST OPERATION © AUTO-PROMPTING FOR EASY USE e LABELS AUTOMATICALLY 
ASSIGNED AS PG ZERO, EXTERNAL AND INTERNAL e LABELS AND ADDRESSES ARE SORTED FOR USER CONVENIENCE 


@ EQUATE DEFINITIONS GENERATED FOR PG ZERO AND EXTERNAL REFERENCES © AUTO SOURCE SEGMENTATION FOR 
EASIER READING AND UNDERSTANDING «© AMD MORE! 


DISASM (2,1) Program Disxerre & User Mamuac: $ 30.92 (postace paip) 
Urcrade Kit Fer PREVioUS PuRCHASERS oF DISASM: $ 12.50 


RAK-WARE 
&] Racpw Roap 
West Onance NJ 07052 


app $3.92 cor suipmeNT ouTsiDE USA 
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0865- 
0866- DO 


0868- AD 74 
O86B- AC 73 
O86E- 60 


O86F- 
0871- 


Apple Assembly Line....August, 1981....Copyright (C) s-c SOFTWARE....Page 13 


1000 * + 
1010 * STAND-ALONE RANDOM FUNCTION 
ee 
1040 * GET A RANDOM NUMBER BETWEEN 0 AND x-l 
1060 * VALUE X IN Y- AND A-REGISTERS 
1070 * JSR 
1080 * RETURN: RANDOM NUMBER IN Y- AND A-REGISTERS 
1090 * LO-BYTE IN Y, HI-BYTE IN A 
1110 MON.RNDL . E 
1120 MON.RNDH_ F 
1130 MON; PRBYTE ; DA 
1140 MON:COUT ED 
08 1120 RANDOM STY LIMIT SAVE LIMIT VALUE 
08 1170 STA LIMIT+1 
1180 LDA MON.RNDH GET SEED HI-BYTE 
1190 BNE .1 BE SURE SEED BTWN 1 AND 7FFF 
1200 CMP MON.RNDL SET I ZERO 
1210 ADC #0 CHANGE 0000 TO 0100 
1220 .1 AND §S7F MAKE THAN 7FFF 
1230 STA MON. 
08 1240. STA VALUE+1 
1250. LDA MON, 
08 1260 STA VALUE 
1270 LDA #0 
08 1280 STA VALUE+2 
08 1250 . STA VALUE+3 
1310 LDY #17 LOOP TO MAKE NEXT RANDOM VALUE 
1320 2 MON.RNDH (WOZNIAK'S ALGORITHM) 
1380 ADC #$40 
1360 
1370 ROL MON. RNDL 
1380 ROL MON. RNDH 
1390 DEY 
1400 BNE .2 
1410 * 
08 1420 LDA LIMTT 
08 1430 ORA LIMIT+1 
1440 7 BEO .5 RETURN ZERO 
1460 * DIVIDE RANDOM VALUE (1° 7ERF BY LIMIT 
1470 * AND USE REMAINDER (0<= <LIMIT) 
1490 LDY #16 LOOP FOR 16-BITS 
08 1500 .3 ASL VALUE DOUBLE DIVIDEND 
See me wey 
08 1530 ROL VALUE+3 
08 1540 LDA VALUE+2 
08 1550 CMP LIMIT 
08 1560 LDA VALUE+3 
08 1570 SBC LIMIT+1 
1580 BCC .4 PARTIAL DIVIDEND < LIMIT 
08 1590 STA VALUE+3 
08 1600 VALUE+2 CARRY IS SET, SUBTRACT 
08 1610 LIMIT  [O-BYTE OF LIMIT 
08 1620 STA VALUE+2 
08 1630 VALUE SET BIT IN QUOTIENT 
1640 .4 DEY 
1650 BNE .3 
1660 ¢— $$ —$__________ 
1670 7 RETURN RANDOM VALUE MOD LIMIT 
08 1690 . LDA VALUE+3 PICK UP REMAINDER FROM DIVISION 
08 1700 LDY VALUE+2 
1710 RTS 
1720 * 
1730 LIMIT .BS 2 
1740 VALUE <BS 
1750 * 


0875- A9 AO t LDA 
O877- 8 $3 08 1780 cath 
= $368 1he3 : IDY #1000 
0 — 2 08 1810 RND (1000) 
088l- 2 1820 JSR MON. 
0884- 1830 TVA 
0885- 20 me FD 1840 JSR ; gPRBYTE 
GEA 23 wp 186) SR GR coor “TNT AN 
0890- DO E8 
0892- 60 1880 ne ou; 
0893- 1900 COUNT .BS 1 


Lines 1160 and 1170 save the argument for later use. Lines 
1180-1260 get the current random seed from the Apple Monitor and 
store it in VALUE. However, if the seed was 0000 it is converted 
to 0100. This is because a seed of 0000 replicates itself 
forever. Furthermore, the sign bit is stripped off; in other 
words, VALUE is set to the seed value modulo 32768. This is 
supposed to force the VALUE to be between 1 and 7FFF. 


The random seed is also modified by the monitor whenever you are 
in KEYIN waiting for an input from the keyboard. This code is at 
SFD1B thru S$FD24 in the monitor ROM. This means the seed might 
have any (truly random) value between 0000 and FFFF. If by chance 
it is $8000 when the RND function is called, VALUE will be set to 
000d. 


Lines 1270-1290 clear two more bytes of VALUE, which will be used 
later, in the division loop. 


Lines 1300-1400 are Woz's algorithm for generating a sequence of 
random integers. It is a binary polynomial technique, but there 
seems to be a bug in it. If you run it 32768 times, you should 
generate each and every value between 0 and S7FFF exactly one 
time, but in random order. I tested it, and it really generates 
the values between $6000 and S$60FF twice, and never generates 
$2000-20FF at all! You can play with it and see if there are some 
seed values which will produce numbers between $2000 and S$20FF. 


Lines 1420-1440 check the argument. If it is zero, I return the 
value zero for the function. Integer BASIC would give you "*** 
>32767 ERR" with a zero argument. 


Lines 1490-1650 are a division program, to divide the random VALUE 
by the LIMIT. After it is finished, the quotient is in VALUE and 
VALUE+1, and the remainder is in VALUE+2 and VALUE+3. We don't 
need the quotient; the remainder is the random value we want. 


Lines 1690-1710 pick up the result in registers A and Y, and 
return to the calling program. 
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What Does This Code NO? £5.565 Sb Swe see Ee ee weee ee OnNn Broderick 


What does it do? Why would you want to use it? Those who send in 
correct answers will get their names published here in a few 
months with the solution. 


SUBROUTINE: BRK 


OK, I'll give you a little hint. One of the five instructions is 
not used by the 6502 processor. Can you tell which one? 


As far as I know, this routine has never before been published; 
however, I use it in almost every program I write. It's a jewel 
of a routine, worth many times its weight in goldl 


Send your answers to John Broderick, 8635 Shagrock, Dallas, TX 
75238. If you have any similar neat code segments, send them with 
explanation. I'll try to make this a regular column in the AAL. 


APPLE MUSIC SYNTHESIZER BREAKTHROUGH 


e COMPLETE 16 VOICE MUSIC SYNTHESIZER ON ONE CARD, JUST PLUG IT INTO YOUR APPLE, CONNECT THE 


AUDIO CABLE (SUPPLIED) TO YOUR STEREO AND BOOT THE SUPPLIED DISK AND YOU'RE READY TO ENTER 
AND PLAY SONGS. 


° ITS EASY TO PROGRAM MUSIC WITH OUR “COMPOSE” SOFTWARE. YOU'LL START RIGHT AWAY AT 
INPUTTING YOUR FAVORITE SONGS. OUR MANUAL SHOWS YOU HOW, STEP BY STEP. THE HI-RES SCREEN 
SHOWS WHAT YOU'VE ENTERED IN STANDARD SHEET MUSIC FORMAT. 


e WE GIVE YOU LOTS OF SOFTWARE. IN ADDITION TO “COMPOSE” AND PLAY PROGRAMS, THE DISK IS FULL 
OF SONGS READY TO RUN. 


° FOUR WHITE NOISE GENERATORS (GREAT FOR SOUND EFFECTS). 
¢ PLAYS MUSIC IN TRUE STEREO AS WELL AS TRUE DISCREET QUADRAPHONIC. 


¢ ENVELOPE CONTROL (VOLUME) 


e WILL PLAY SONGS WRITTEN FOR ALF SYNTHESIZER (ALF SOFTWARE WILL NOT TAKE ADVANTAGE OF ALL 
THE FEATURES OF THIS BOARD, THEIR SOFTWARE SOUNDS THE SAME ON OUR SYNTHESIZER). 


¢ AUTOMATIC SHUTOFF ON POWER-UP, OR IF RESET IS PUSHED. 
¢ MANY, MANY MORE FEATURES. 


ALL ORDERS SHIPPED SAME DAY | _MASTER CHARGE & VISA WELCOME 


SEND $159.00 CHECK OR MONEY ORDER 
(214) 492-2027 


(TEXAS RESIDENTS ADO 5% SALES TAX) 

POELIED E& aaa 
oo Lhe call NG 7:00 AM - 11:00 PM 7 DAYS A WEEK 
DALLAS TEXAS 75247 APPLE PERIPHERALS ARE OUR ONLY BUSINESS 
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Correction to "Assembly Source on Text Files" 


Volume 1, Issue 2 of Apple Assembly Line contained a program for 
writing assembly source programs for the S-C Assembler II Version 
4.0 on DOS text files. Peter Bartlett of Chicago was trying to 
use it with a Corvus Hard Disk, and found a problem with the 
program. 


The Corvus system will not accept a CLOSE command unless there is 
a file name on it (unlike regular DOS). One solution is to delete 
the two calls to CLOSE.FILE at lines 1410 and 1570. 


While talking with Peter I discovered a bug in my program, in the 
subroutine named ISSUE.DOS.COMMAND. It is supposed to allow slot 
and drive parameters on the file name. This was described in the 
write-up on page ll. Two errors made it not work. 


First, line 1910 says: 

1910 CMP #', COMMA? 
but the character in the A-register has the high bit set to one. 
Cvhange line 1910 to: 

1910 CMP #SAC COMMA? 


Second, line 1940 says: 
STA DOS.BUFFER,Y 
Change it to: 
1940 STA DOS.BUFFER-1,Y 


The line numbers above correspond to the printed listing in the 
AAL article. They may not be exactly the same as the source code 
on Quarterly Disk #1. If you have Quarterly Disk #1 with a serial 
number of 45 or higher, your copy is already fixed. 


About Advertising 


Do you have a new product you want to test market, which would 
appeal to the Apple Assembly Line readers? You ought to try an ad 
in these pages. The current price is $20 for a full page, $10 for 
a half page. Send it to me just as you want it printed (I can do 
the reduction to make it fit on the page). 
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Commented Listing of DOS 3.3 Boot ROM 


The P5A ROM on your Apple Disk II Controller has a 256-byte 
program in it which reads track 0 sector 0 into memory and starts 
executing it. 


The data in track 0 sector 0 is read into memory from $0800-O8FF. 
Location $0800 contains a value indicating how many sectors to 
boot in. This is usually zero, meaning to read only sector zero. 
However, it could be as high as SOF, meaning to read all 16 
sectors of track 0 into memory from $0800-17FF. (The BASICS 
diskette uses this feature.) Once the selected number of sectors 
has been read, the boot ROM jumps to $0801 to start execution. At 
this point (in a normal DOS boot) the rest of DOS is loaded. 


My listing starts at $C600, which is where it will be if your 
controller is in slot 6. The code is all independent of position, 
so that it can be plugged into any slot. In fact, you can move 
the code into RAM if you like, just so the second digit of the 
address is the same as the controller card slot number. I do this 
some times when I am trying to crack locked disks. I go to the 
monitor, type 8600<C600.C6FFM, and then patch a BRK opcode on top 
of the JMP $0801 at S$86F8. Then 8600G will read in track 0 sector 
0 and BRK back to the monitor, and I can analyze the code to see 
how the rest is read in. 


Enough of that, let's get into the code! Lines 1510-1690 are an 
esoteric loop which generate the nybble conversion table. The 
table is built in page 3, from $36C through $3D5. I tried out the 
loop after storing FF bytes throughout page 3, and got this: 


0368- FF FF FF FF 00 01 FF FF O3A0- FF 1B FF 1C 1D 1E FF FF 
0370- 02 03 FF 04 05 06 FF FF O3A8- FF 1F FF FF 20 21 FF 22 
0378- FF FF FF FF 07 08 FF FF O3B0- 23 24 25 26 27 28 FF FF 
0380- FF 09 OA OB OC OD FF FF O3B8- FF FF FF 29 2A 2B FF 2C 
0388- OF OF 10 11 12 13 FF 14 O3CO- 2D 2E 2F 30 31 32 FF FF 
0390- 15 16 17 18 19 1A FF FF O3C8- 33 34 35 36 37 38 FF 39 
0398- FF FF FF FF FF FF FF FF O3D0- 3A 3B 3C 3D 3E 3F FF FF 


These bytes are referred to at lines 2670 and 2740, indexed from a 
base of $02D6. This makes a disk code of $96 give a $00 value, 
and a code of SFF give a value of S$3F. 


Lines 1710-1790 determine the slot number and multiply it by 16. 
The JSR MON.RTS is to an RTS instruction in the monitor ROM. The 
only purpose of this JSR is to put its own address on the stack. 
Then lines 1720 and 1730 lift up the high byte of the address from 
the stack. The second digit of this address is the slot number, 
and 4 ASL's will isolate it and multiply it by 16. Lines 
1800-1830 select drive 0 and turn on the motor. (If you want to 
boot from drive 2, you can copy this code into RAM at $8600 and 
Change the byte at $8636 from $8A to $8B.) ? 


Lines 1880-1990 move the head to track 0 from wherever it was. If 
you were already at track 0, it just sits there making a racket as 
it bangs against the stop. Lines 2030-2070 initialize the track 
and sector numbers and the memory address to read into. 
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Lines 2090-2480 read a sector into the input area. Lines 
2110-2290 are used two different ways, depending on the CARRY 
status upon entry. The first time CARRY is clear, and we look for 
an address header (D5 AA 96). After finding an address header the 
sector and track are check in lines 2300-2480; if they are the 
ones we want, CARRY is set and we do lines 2110-2290 over again. 
This time they look for a data header. If one is found, it's time 
to read the data. 


Lines 2530-2880 read in the sector. First 86 bytes are read into 
a little buffer at the bottom of page 3 ($0300-0355). Then 256 
bytes are read into the target memory area (normally $0800-O8FF). 
A checksum is computed and checked; if it doesn't match, we start 
all over. Lines 2770-2880 put the bits from $0300-0355 together 
with those in the main buffer, in the same way discussed two 
months ago in the listing of DOS 3.3 B800-BCFF. 


Lines 2900-2950 check whether we have read all the sectors 
specified by the first byte of track 0 sector 0. If not, loop 
back to read the next sector one page higher in memory. When they 
have all been read, control branches to $0801. The normal DOS 
boot only reads one sector before branching to $0801. 


1010 * DOS 3.3 BOOT ROM SC600.C6FF 
1030 * COMMENTS BY BOB SANDER-CEDERLOF 
1040 * JULY, 4, 1981 
1060 : DISK CONTROLLER ADDRESSES 

co80- 1080 PHOFF . 080  § PHASE-OFF 

C081- 1090 PHN . 0 PHASE 

CO88- 00 MIROFF ; 0 MOTOR OFF 

C089- 1110 MIRON : 8 MOTOR ON 

CO8A- 1120 EN ; 08A DRIVE 0 ENABLE 

CO8B- 1130 DRVLEN ; 08B DRIVE 1 ENABLE 

CO8C- 114 : 08C LOW 

CO8D- 1150 : 08D SET 66 HIGH 

CO8E- 116 : O8E 

CO8F- 1170 : O8F § SET G7 HIGH 
1190 * 06 7 USE OF Q6 AND Q7 LINES 
1210 * LOW LOW READ (DISK TO SHIFT REGISTER) 
1220 * LOW HIGH WRITE (SHIeT REGISTER TO DISK) 
1230 * HIGH SENSE PROTECT 
1240 ‘ HIGH HIGH LOAD SHIFT REGISTER FROM DATA BUS 

0026- 1260 BUFFER.PNIR .EQ $26,27 

002B- 1270 SLOTI6 . 3B "SLOT NUMBER TIMES 16 

003D- 1280 SECTOR .EO) $3D 

yore 1338 j + $0100 

0300- 1320 . BUFFER 300 

FF58- 1330 MON, EQ 5 

FCA8- 1340 MON : 8 
1350 * 
1360 .OR $C600 
1370 “TA $0800 
1380 * 
1390 BOOr.3.3 

C600- A2 20 1400 LDX #$20 REDUNDANT INSTRUCTION, USED 
1430 * IDENTIFY CONTROLLER CARD 
1430 * GENERATE POST-NYBBLE CONVERSION TABLE 
1440 * FILLS IN THOSE SLOTS WHOSE IND 
1450 * POST . .CODES IS 
1460 * BLE CODE. ID 
1470 * HAVE AT MOST ONE PAIR OF ADJAC 
1480 * 0-BITS, AND AT LEAST ONE PAIR OF 
1490 * ADJACENT 1-BITS IN BITS 0-6.) 
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1500 * 
C602- AO 00 1510 LDY #0 
1520 


C604- A2 03 LDX #3 COULD BE ANY VALUE FROM 0 TO $16 
1530 * 3 USED FOR LLER ID 
C606- 86 3c. —_—«*1540 .1 STX $3C CHECK CODE FOR VALID NYBBLE 
Cé608- 8A 1550 TXA 
C609- OA 1560 ASL 
C60A- 24 3C ~——-:1570 Bop . TEST (X .AND. a 
c60c- FO 10 ~——- 1580 NO TdkciNe i-BIT jo GOOD 
C60E- 05 3C ~—- 1590 elk TEST ADJACENT 0-8 
C610- 49 FF _—«- 1600 CHANGE TO 1'S FOR hs 
C6l2- 29 7B ~— 1610 DON'T CARE ABOUT BIT 7 
C6él4—- BO 08 1620 .2 NOT VALID NYBBLE CODE 
C616—- 1630 
C6él7- DO FB —s-:16 40 
C619- 98 1650 A 
C61A- 9D 56 03 1660 STA rn 
C61D- C8 1670 INY 
C61E- E8 1680 .3 INX 
C61F- 10 E5 1690 : BPL .] 
C621- 20 58 FF 1710 JSR MON.RTS GET THIS LOCATION ON STACK 
C624—- BA 1720 TSX FIND THE PAGE BYTE ON STACK 
C625- BD 00 01 1730 LDA STACK ,X 
C628- OA 1740 ASL ISOLATE SLOT 
C629- OA 1750 ASL AND MULTIPLY BY 
C62A- OA 1760 ASL 
C62B- OA 1770 ASL 
C62C- 85 2B ~—=«:1780 STA SLOT16 SLOT NUMBER TIMES 16 
C62E- AA 1790 TAK 
C62F- BD 8E CO 1800 Thr SET UP TO READ DRIVE 
C632- BD 8C CO 1810 Da 
C635- BD 8A CO 1820 PVOEN X ENABLE DRIVE 0 
Co38- BD 89 CO 1830 | TDA MERON, X TURN ON MOTOR 
1850 * MOVE TO TRACK 0 (ASSUME WOR CASE 
1860 * INITIAL POSITION OF TRACK 40). 
C63B~ AO 5 1880 LDY #80 80 HALF-TRACKS 
C63D- BD 80 CO 1890 .4 LDA PHOFF,X STEPPER MOTOR PHASE OFF 
C640- 98 1900 TYA NEXT 
eas- GA Ct as YES B4'2'6 
C644- 05 2B 1348 ORA SLOT16 wity stor* 
C646- AA 1940 TAX 
C647- BD 81 CO 1950 LDA 1X R PHASE ON 
C64A- A9 960 LDA WAIT 19.2 MILLI 
C64C- 20 A8 FC 1970 JSR MON.WAIT NO CHANGE TO X OR Y, A=0 
C64F- 88 1980 
C650- 10 EB 1990 BPL .4 
2010 * A=0, X=SLOT*16 
C652- 85 26 203 STA BUFFER.PNIR $00 —> LOW BYTE OF PNIR 
C654— 85 3D arty STA SECTOR, 0 ( 
Goze. 83 Gs bao a te $0800 
65A- 85 27 3078 ? LO ip orer. Po PNR (858 —> HI-BYTE OF PNIR) 
2090 READ. SECTOR 
C65C- 18 2100 4 CLC FLAG CLEAR LOOK K FOR $05 AA 96 
o2R- OB a co aii8 3 EDA Q6L,X SAVE FLAG ON STACK 
a ane 
Cees 7 Fe CO at 5 mn \6L X READ DISK 
C66A- 10 $188 BPL 8 : 
C66C- C9 2180 CMP Ha 
C66E- DO F3.~—s-_ 2190 BNE , 
C670- EA 2200 NOP 
C671- BD 8C CO 2210 .6 LDA Q6L,X READ DISK 
C674- 10 2220 BPL 
cere Sh bo 3SaG BED #596 FOUND ADDRESS MARK: $D5 AA 96 
CEA” 28 pp 328 BCC FOR ER 
- HEAD 
Co7D- 43 AD 2210 FOR $S0D LOOKING FOR DATA HEADER 
ced 5o fe 2290 Be Ft BUFFER ART ALL OVER 
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2300 * 
C683- AO 03.2 2310 .7 IDY #3 READ VOLUME, TRACK, SECTOR 
C685~- 85 40 2320 .8 STA $40 ’ : 
C687- BD 8C CO 2330 .9 LDA O6L,X READ DISK 
Ceace an FB 8388 pL 2 SAVE UPPER SLICE 
C68D- 85 3C _—- 2360 STA $3C 
C68F- BD 8C CO 2370 .10 LDA O6L,X READ DISK 
C692- 10 FB 80 BPL 10 
94- 25 3C AND § MERGE SLICES 
96- 88 2400 DEY 3RD BYTE YET? 
C697- DO EC —_-2410 BNE .8 NO, GET ANOTHER 
C699- 28 2420 PLP THROW FLAG 
C69A- C5 3D ~—_ 2430 CMP SECTOR CORRECT SECTOR? 
Geac- ROBE 3488 BNE tho SORRECT ‘TRACK? 
C6A0- C5 4) 2460 CMP Ho 
C6A2- DO BB =—s_- 2470 BNE J] NO 
C6A4- BO B? 2480 BCS .2 YES, SET FLAG FOR DATA HEADER 
2490 * AND BRANCH BACK ALWAYS 
2510 * =0 ON ENTRY 
2520 * 
2530 FILL.BUFFER | 
C6A6- AO 56 ~—- 25.40 LDY #86 READ 86 BYTES 
C6A8- 84 3C ~—- 2550 41 STY $3C 
C6AA- BC 8C CO 2560 .2 LDY O6L,X READ BYTE 
C6AD- 10 FB —s. 2570 BPL .2 
C6AF— 59 D6 02 2580 EOR .NYBBLE.CODES,Y DBCODE BYTE 
C6B2- A4 3C —- 2590 LDY $ 
6B4—- 88 2600 DEY 
C6B5- 99 00 03 2610 STA LITTLE. BUFFER,Y 
6B8- DO EE 2620 7 BNE .] 
C6BA- 84 3¢ 2640 3 STY $3C Y= 
COBC- BC BC CO 2650 : LDY 6L/X READ BYTE 
Geer 28 D6 02 $688 see er POST .NYBBLE.CODES ,Y DECODE BYTE 
C6C4= A4 3C 2680 LDY as 
Cece 9 26 2690 STA BUFFER. PNIR) ,Y 
GEER EF $308 BNE .3 
BC 8C CO 2720 .5 LDY Q6L,X READ CHECKSUM BYTE 
Cepn— 59 be 02 S740 EPL POST .NYBELECODES, ¥ 
C6D3- DO 87 Ae 16 BNE READ.SECTOR BAD CHECKSUM, START OVER 
C6D5- AO 00 1) LDY 19 
C6D7- A256 2780. LDX #86 PATCH THE 6+2 BACK TOGETHER 
C6D9- CA 2790 .8 DEX 
6DA- 30 2800 EMI .7 FINISHED A TRIP 
6DC- Bl 2810 LDA (BUFFER. PNIR) /Y 
C6DE- 5E 00 03 2820 LSR LITTLE.BUFFER, 
6El- 2A 2830 ROL 
C6E2- 5E 00 03 2840 LSR LITTLE.BUFFER,X 
6E5- 2850 ROL 
C6E6- 91 26 2860 STA (BUFFER.PNIR) ,Y 
6E8- CB 287 INY 
6E9- DO EE 2880 , BNE .8 
C6EB- E6 27 2900 INC BUFFER.PNIR+1] POINT AT NEXT PAGE 
C6ED- E6 3D = 2910 INC SECTOR POINT AT NEXT SECOTR 
6EF- A5 3p 2920 LDA R 
C6F1- CD 60 08 2930 CMP $0800. SEE IF HAVE READ ENUF SECTORS 
C6F4~ A6 2B =: 29.40 IDX SLOTI6 
6F6- 90 2950 BCC .6 NOT ENUF SECTORS YET 
C6F8- 4C 01 08 2960 . JMP $0801 GO TO REST OF BOOr 
C6FB- 00 00 00 
C6FE- 00 00 2980 -HS 0000000000 UNUSED BYTES IN ROM 
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